home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 5 Developer's Kit / vb5 dev kit.iso / dev / csview / fmap.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-04-05  |  46.8 KB  |  1,144 lines
  1. VERSION 2.00
  2. Begin Form fmap 
  3.    BackColor       =   &H00FFFFFF&
  4.    Caption         =   "vsDraw: Maps"
  5.    ClientHeight    =   4950
  6.    ClientLeft      =   465
  7.    ClientTop       =   1485
  8.    ClientWidth     =   3990
  9.    Height          =   5355
  10.    Left            =   405
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   4950
  13.    ScaleWidth      =   3990
  14.    Top             =   1140
  15.    Width           =   4110
  16.    Begin vsDraw vsDraw1 
  17.       BackColor       =   &H00FF0000&
  18.       BrushColor      =   &H0000FF00&
  19.       ConvInfo        =   FMAP.FRX:0000
  20.       Height          =   3570
  21.       Left            =   0
  22.       ScaleHeight     =   12000
  23.       ScaleWidth      =   18000
  24.       Top             =   1380
  25.       Width           =   3270
  26.    End
  27.    Begin ComboBox cmbStates 
  28.       FontBold        =   0   'False
  29.       FontItalic      =   0   'False
  30.       FontName        =   "Arial"
  31.       FontSize        =   8.25
  32.       FontStrikethru  =   0   'False
  33.       FontUnderline   =   0   'False
  34.       Height          =   330
  35.       Left            =   60
  36.       Style           =   2  'Dropdown List
  37.       TabIndex        =   1
  38.       Top             =   1035
  39.       Width           =   2265
  40.    End
  41.    Begin PictureBox Picture1 
  42.       AutoRedraw      =   -1  'True
  43.       BackColor       =   &H00C0C0C0&
  44.       Height          =   780
  45.       Left            =   4935
  46.       ScaleHeight     =   750
  47.       ScaleWidth      =   975
  48.       TabIndex        =   0
  49.       Top             =   150
  50.       Visible         =   0   'False
  51.       Width           =   1005
  52.    End
  53.    Begin Label lbl 
  54.       BackStyle       =   0  'Transparent
  55.       Caption         =   "vsDraw"
  56.       FontBold        =   -1  'True
  57.       FontItalic      =   0   'False
  58.       FontName        =   "Haettenschweiler"
  59.       FontSize        =   54
  60.       FontStrikethru  =   0   'False
  61.       FontUnderline   =   0   'False
  62.       ForeColor       =   &H00808000&
  63.       Height          =   1170
  64.       Left            =   60
  65.       TabIndex        =   2
  66.       Top             =   -105
  67.       Width           =   3360
  68.    End
  69. Option Explicit
  70. Dim s$
  71. Dim np%
  72. Dim dwg%
  73. Sub AllStates (mColor As Double)
  74.   Dim oldColor As Double
  75.   ' save colors
  76.   oldColor = vsDraw1.BrushColor
  77.   vsDraw1.BrushColor = mColor
  78.   'Paint States
  79.   DoArizona
  80.   DoAlabama
  81.   DoArkansas
  82.   DoColorado
  83.   DoCalifornia
  84.   DoConnecticut
  85.   DoDelaware
  86.   DoFlorida
  87.   DoGeorgia
  88.   DoIdaho
  89.   DoIllinois
  90.   DoIndiana
  91.   DoIowa
  92.   DoKansas
  93.   DoKentucky
  94.   DoLouisiana
  95.   DoMaine
  96.   DoMaryland
  97.   DoMassachusetts
  98.   DoMichigan
  99.   DoMinnesota
  100.   DoMississippi
  101.   DoMissouri
  102.   DoMontana
  103.   DoNebraska
  104.   DoNevada
  105.   DoNewHampshire
  106.   DoNewMexico
  107.   DoNewYork
  108.   DoNorthCarolina
  109.   DoNorthDakota
  110.   DoOhio
  111.   DoOklahoma
  112.   DoOregon
  113.   DoPennsylvania
  114.   DoRhodeIsland
  115.   DoSouthCarolina
  116.   DoSouthDakota
  117.   DoTennessee
  118.   DoTexas
  119.   DoUtah
  120.   DoVirginia
  121.   DoWestVirginia
  122.   DoVermont
  123.   DoWashington
  124.   DoWyoming
  125.   ' restore colors
  126.   vsDraw1.BrushColor = oldColor
  127. End Sub
  128. Sub cmbStates_Click ()
  129.   vsDraw1.Action = 1
  130.   AllStates RGB(255, 255, 255)
  131.   Select Case cmbStates.ListIndex
  132.     Case 0: DoAlabama
  133.     Case 1: DoArizona
  134.     Case 2: DoArkansas
  135.     Case 3: DoCalifornia
  136.     Case 4: DoColorado
  137.     Case 5: DoConnecticut
  138.     Case 6: DoDelaware
  139.     Case 7: DoFlorida
  140.     Case 8: DoGeorgia
  141.     Case 9: DoIdaho
  142.     Case 10: DoIllinois
  143.     Case 11: DoIndiana
  144.     Case 12: DoIowa
  145.     Case 13: DoKansas
  146.     Case 14: DoKentucky
  147.     Case 15: DoLouisiana
  148.     Case 16: DoMaine
  149.     Case 17: DoMaryland
  150.     Case 18: DoMassachusetts
  151.     Case 19: DoMichigan
  152.     Case 20: DoMinnesota
  153.     Case 21: DoMississippi
  154.     Case 22: DoMissouri
  155.     Case 23: DoMontana
  156.     Case 24: DoNebraska
  157.     Case 25: DoNevada
  158.     Case 26: DoNewHampshire
  159.     Case 27: DoNewJersey
  160.     Case 28: DoNewMexico
  161.     Case 29: DoNewYork
  162.     Case 30: DoNorthCarolina
  163.     Case 31: DoNorthDakota
  164.     Case 32: DoOhio
  165.     Case 33: DoOklahoma
  166.     Case 34: DoOregon
  167.     Case 35: DoPennsylvania
  168.     Case 36: DoRhodeIsland
  169.     Case 37: DoSouthCarolina
  170.     Case 38: DoSouthDakota
  171.     Case 39: DoTennessee
  172.     Case 40: DoTexas
  173.     Case 41: DoVirginia
  174.     Case 42: DoVermont
  175.     Case 43:
  176.     Case 44: DoWashington
  177.     Case 45: DoWestVirginia
  178.     Case 46: DoWisconsin
  179.     Case 47: DoWyoming
  180.   End Select
  181. End Sub
  182. Sub Command2_Click ()
  183.     Dim cp%
  184.     ' compress polygon
  185.     DoEvents
  186.    ' cp = PolyCompress(s, Val(text1))
  187.     caption = "New:" + Str(cp) + ", Old:" + Str(np) + " Points"
  188.     ' show compressed polygon
  189.     vsDraw1.Action = 1
  190.     vsDraw1.Polygon = s
  191.     vsDraw1.Action = 2
  192.     Picture1.Visible = True
  193. End Sub
  194. Sub DoAlabama ()
  195.   Dim s$
  196.   ' Alabama
  197.   s = " 11909 8377 11909 8456 11948 8574 11909 8691"
  198.   s = s + " 11988 8770 11124 8848 11124 8927 11203 8966"
  199.   s = s + " 11203 9044 11242 9084 11203 9123 11046 9162"
  200.   s = s + " 11085 9123 11046 9084 11046 9005 11007 8966"
  201.   s = s + " 10967 9123 10889 9123 10810 8534 10850 7396"
  202.   s = s + " 10850 7357 10810 7318 11634 7239 11870 8103"
  203.   s = s + " 11909 8220 11909 8299 11948 8299 11909 8377"
  204.   vsDraw1.Polygon = s
  205.   vsDraw1.Action = 2
  206. End Sub
  207. Sub DoArizona ()
  208.   Dim s$
  209.   ' Arizona
  210.   s = " 4414 6533 4139 8495 3472 8417 2334 7789"
  211.   s = s + " 2413 7671 2452 7632 2452 7553 2452 7514"
  212.   s = s + " 2452 7475 2452 7436 2491 7357 2531 7200"
  213.   s = s + " 2570 7200 2687 7122 2609 7043 2570 6808"
  214.   s = s + " 2609 6729 2648 6376 2727 6376 2805 6455"
  215.   s = s + " 2844 6376 2923 6062 4414 6337 4414 6533"
  216.   vsDraw1.Polygon = s
  217.   vsDraw1.Action = 2
  218. End Sub
  219. Sub DoArkansas ()
  220.   Dim s$
  221.   ' Arkansas
  222.   s = " 10379 7004 10339 7004 10339 7043 10261 7082"
  223.   s = s + " 10300 7082 10261 7122 10261 7122 10300 7161"
  224.   s = s + " 10222 7161 10261 7200 10222 7200 10222 7200"
  225.   s = s + " 10222 7200 10222 7239 10222 7279 10182 7357"
  226.   s = s + " 10222 7396 10182 7436 10143 7436 10143 7396"
  227.   s = s + " 10143 7475 10104 7475 10143 7514 10104 7514"
  228.   s = s + " 10104 7593 10065 7632 10026 7593 10026 7671"
  229.   s = s + " 9986  7671 10026 7710  9986 7710 9986 7750"
  230.   s = s + " 9947 7789 9986 7828 9908 7867 9947 7867"
  231.   s = s + " 9908 7867 9908 7907 9908 7946 9908 7985"
  232.   s = s + " 9947 7946 9908 7985 9908 8024 9947 7985"
  233.   s = s + " 9908 8024 9947 8063 9947 8103 9908 8103"
  234.   s = s + " 9947 8103 9908 8142 9044 8142 9044 7946"
  235.   s = s + " 8888 7946 8848 7907 8888 7239 8809 6808"
  236.   s = s + " 9986 6769 10222 6769 10222 6847 10143 6965"
  237.   s = s + " 10339 6965 10379 7004"
  238.   vsDraw1.Polygon = s
  239.   vsDraw1.Action = 2
  240. End Sub
  241. Sub DoCalifornia ()
  242.   Dim s$
  243.   'California
  244.   s = " 2687 7122 2609 7043 2570 6808 1942 5905 1314 4963 1589 3825"
  245.   s = s + " 412  3512 372  3590 412 3629 412 3708 333 3825 333 3943"
  246.   s = s + " 176 4061 176 4179 294 4336 215 4689 372 5003 333 5120"
  247.   s = s + " 412 5120 412 5120 451 5199 490 5160 490 5120 568 5160"
  248.   s = s + " 490 5160 568 5395 451 5317 490 5199 451 5199 451 5317"
  249.   s = s + " 451 5395 451 5434 490 5552 568 5591 568 5709 490 5748"
  250.   s = s + " 490 5827 568 5984 608 6101 725 6219 725 6337 725 6337"
  251.   s = s + " 725 6572 725 6612 1039 6690 1118 6886 1236 6925 1314 6925"
  252.   s = s + " 1314 7043 1393 7082 1589 7239 1589 7357 1589 7514 1589 7593"
  253.   s = s + " 2413 7671 2452 7632 2452 7553 2452 7514 2452 7475 2452 7436"
  254.   s = s + " 2491 7357 2531 7200 2570 7200 2687 7122"
  255.   vsDraw1.Polygon = s
  256.   vsDraw1.Action = 2
  257. End Sub
  258. Sub DoColorado ()
  259.   Dim s$
  260.   ' Colorado
  261.   s = " 6572 6258 6612 5395 6651 5003 6062 4963"
  262.   s = s + " 4610 4806 4453 5866 4453 5984 4414 6337"
  263.   s = s + " 6258 6533 6533 6572 6572 6298 6572 6258"
  264.   vsDraw1.Polygon = s
  265.   vsDraw1.Action = 2
  266. End Sub
  267. Sub DoConnecticut ()
  268.   Dim s$
  269.   ' Connecticut
  270.   s = " 15362 4061 15323 3943 14852 4022 14891 4296"
  271.   s = s + " 14891 4336 14852 4414 14891 4453 14970 4375"
  272.   s = s + " 15048 4336 15088 4257 15245 4257 15205 4218"
  273.   s = s + " 15245 4257 15323 4257 15284 4179 15323 4218"
  274.   s = s + " 15362 4218 15362 4179 15362 4061"
  275.   vsDraw1.Polygon = s
  276.   vsDraw1.Action = 2
  277. End Sub
  278. Sub DoDelaware ()
  279.   Dim s$
  280.   ' Delaware
  281.   s = " 14656 5434 14577 5434 14656 5434 14617 5395"
  282.   s = s + " 14656 5434 14617 5356 14538 5317 14499 5199"
  283.   s = s + " 14460 5160 14420 5081 14460 5003 14420 5003"
  284.   s = s + " 14342 5042 14499 5513 14656 5474 14656 5434"
  285.   s = s + " 14656 5474 14656 5434"
  286.   vsDraw1.Polygon = s
  287.   vsDraw1.Action = 2
  288. End Sub
  289. Sub DoFlorida ()
  290.   Dim s$
  291.   ' Florida
  292.   s = s + " 13832 10182 13596 9751 13557 9633 13596 9594"
  293.   s = s + " 13282 9162 13126 8770 12969 8770 13008 8927"
  294.   s = s + " 12929 8966 12929 8848 12027 8888 11988 8770"
  295.   s = s + " 11124 8848 11124 8927 11203 8966 11203 9044"
  296.   s = s + " 11242 9084 11163 9123 11281 9084 11281 9005"
  297.   s = s + " 11320 9044 11360 8966 11360 8966 11360 9044"
  298.   s = s + " 11360 9044 11320 9084 11477 9044 11517 9005"
  299.   s = s + " 11556 9044 11634 9005 11634 9044 11517 9044"
  300.   s = s + " 11791 9162 11713 9084 11791 9084 11831 9044"
  301.   s = s + " 11791 9123 11909 9162 11870 9201 11791 9162"
  302.   s = s + " 11909 9280 11909 9280 11909 9280 11909 9319"
  303.   s = s + " 11988 9319 11988 9280 11948 9280 12223 9201"
  304.   s = s + " 12223 9162 12262 9084 12498 9162 12498 9241"
  305.   s = s + " 12537 9280 12576 9280 12694 9398 12694 9437"
  306.   s = s + " 12772 9437 12851 9633 12812 9908 12890 9986"
  307.   s = s + " 12929 9908 12851 9869 12851 9829 12929 9869"
  308.   s = s + " 12929 9908 12969 9869 13008 9908 12929 10026"
  309.   s = s + " 13008 10026 12890 10065 12969 10104 13086 10300"
  310.   s = s + " 13086 10300 13086 10222 13086 10261 13165 10222"
  311.   s = s + " 13126 10261 13165 10418 13243 10339 13165 10418"
  312.   s = s + " 13243 10418 13322 10653 13361 10614 13479 10693"
  313.   s = s + " 13557 10889 13714 10850 13832 10771 13793 10693"
  314.   s = s + " 13871 10536 13871 10575 13832 10182"
  315.   vsDraw1.Polygon = s
  316.   vsDraw1.Action = 2
  317. End Sub
  318. Sub DoGeorgia ()
  319.   Dim s$
  320.   ' Georgia
  321.   s = s + " 13165 8181 13165 8103 13086 8024 13047 7867"
  322.   s = s + " 12929 7828 12851 7789 12851 7750 12655 7553"
  323.   s = s + " 12498 7396 12380 7318 12419 7200 12066 7200"
  324.   s = s + " 11634 7239 11870 8103 11909 8220 11909 8299"
  325.   s = s + " 11948 8299 11909 8377 11909 8456 11948 8574"
  326.   s = s + " 11909 8691 11988 8770 12027 8888 12929 8848"
  327.   s = s + " 12929 8966 13008 8927 12969 8770 13126 8770"
  328.   s = s + " 13126 8691 13126 8691 13086 8691 13126 8691"
  329.   s = s + " 13086 8613 13126 8613 13126 8534 13165 8534"
  330.   s = s + " 13165 8456 13126 8417 13204 8417 13204 8377"
  331.   s = s + " 13165 8377 13204 8377 13165 8299 13204 8338"
  332.   s = s + " 13165 8299 13243 8299 13165 8181"
  333.   vsDraw1.Polygon = s
  334.   vsDraw1.Action = 2
  335. End Sub
  336. Sub DoIdaho ()
  337.   Dim s$
  338.   ' Idaho
  339.   s = " 4179 3825"
  340.   s = s + " 4257 3394 4179 3276 4139 3315 4139 3355"
  341.   s = s + " 3904 3315 3904 3355 3786 3315 3747 3355"
  342.   s = s + " 3708 3315 3708 3198 3590 3119 3629 3080"
  343.   s = s + " 3590 3001 3590 2844 3551 2805 3433 2844"
  344.   s = s + " 3355 2805 3394 2805 3355 2766 3433 2727"
  345.   s = s + " 3433 2609 3512 2452 3394 2374 3315 2177"
  346.   s = s + " 3198 2060 3237 2060 3237 2060 3198 2020"
  347.   s = s + " 3237 1942 3158 1863 3237 1471 3001 1432"
  348.   s = s + " 2727 2413 2766 2491 2727 2531 2766 2531"
  349.   s = s + " 2844 2687 2844 2727 2727 2884 2727 2962"
  350.   s = s + " 2648 3001 2531 3119 2531 3158 2648 3198"
  351.   s = s + " 2570 3355 2452 4022 3276 4179 4139 4336"
  352.   s = s + " 4179 3943 4179 3825"
  353.   vsDraw1.Polygon = s
  354.   vsDraw1.Action = 2
  355. End Sub
  356. Sub DoIllinois ()
  357.   Dim s$
  358.   ' Illinois
  359.   s = s + " 10967 5827 10889 5709 10928 5631 10850 4728 10771 4532 10771 4414"
  360.   s = s + " 9947  4453 10026 4571 10104 4571 10104 4650 10065 4806 9869 4885"
  361.   s = s + " 9829 4963 9908 5003 9908 5081 9869 5160 9751 5199 9751 5277 9712"
  362.   s = s + " 5395 9790 5552 9947 5748 10026 5866 10065 5827 10182 5866 10104"
  363.   s = s + " 6062 10104 6101 10222 6219 10222 6258 10261 6219 10379 6337"
  364.   s = s + " 10418 6415 10379 6455 10418 6572 10457 6572 10496 6533 10496 6572"
  365.   s = s + " 10496 6533 10536 6455 10732 6533 10693 6376 10810 6337 10771 6298"
  366.   s = s + " 10810 6258 10771 6180 10810 6219 10810 6141 10850 6062 10810 6023"
  367.   s = s + " 10850 6023 10967 5827"
  368.   vsDraw1.Polygon = s
  369.   vsDraw1.Action = 2
  370. End Sub
  371. Sub DoIndiana ()
  372.   Dim s$
  373.   ' Indiana
  374.   s = "11175 5748 11752 5748 11634 5827 11595 5788"
  375.   s = s + " 11595 5905 11517 5984 11477 6023 11438 6101"
  376.   s = s + " 11399 6101 11360 6101 11320 6023 11320 6062"
  377.   s = s + " 11281 6062 11281 6141 11242 6180 11163 6141"
  378.   s = s + " 11085 6219 10967 6141 10928 6219 10850 6180"
  379.   s = s + " 10850 6219 10810 6258 10771 6180 10810 6219"
  380.   s = s + " 10810 6141 10850 6062 10810 6023 10850 6023"
  381.   s = s + " 10967 5827 10889 5709 10928 5631 10850 4728"
  382.   s = s + " 10928 4767 11046 4689 11634 4610 11634 4650"
  383.   s = s + " 11752 5670 11713 5670 11713 5748 11752 5748"
  384.   vsDraw1.Polygon = s
  385.   vsDraw1.Action = 2
  386. End Sub
  387. Sub DoIowa ()
  388.   Dim s$
  389.   ' Iowa
  390.   s = s + " 10104 4650 10104 4571 10026 4571 9947 4453"
  391.   s = s + " 9908 4414 9829 4375 9790 4257 9829 4179"
  392.   s = s + " 9790 4139 9790 4100 8299 4100 8260 4139"
  393.   s = s + " 8260 4218 8299 4257 8220 4375 8299 4493"
  394.   s = s + " 8299 4610 8417 4767 8417 4846 8456 4885"
  395.   s = s + " 8456 4924 8456 5003 8495 5003 8495 5120"
  396.   s = s + " 8456 5160 8495 5199 9633 5199 9751 5277"
  397.   s = s + " 9751 5199 9869 5160 9908 5081 9908 5003"
  398.   s = s + " 9908 5003 9829 4963 9869 4885 10065 4806 10104 4650"
  399.   vsDraw1.Polygon = s
  400.   vsDraw1.Action = 2
  401. End Sub
  402. Sub DoKansas ()
  403.   Dim s$
  404.   ' DoKansas
  405.   s = s + " 8809 5788 8809 6612 6533 6572 6572 6298 6572 6258"
  406.   s = s + " 6612 5395 8613 5434 8691 5474 8731 5474 8770 5552"
  407.   s = s + " 8731 5552 8691 5631 8770 5709 8770 5748 8809 5788"
  408.   vsDraw1.Polygon = s
  409.   vsDraw1.Action = 2
  410. End Sub
  411. Sub DoKentucky ()
  412.   Dim s$
  413.   ' Kentucky
  414.   s = s + " 12655 6141 12615 6141 12498 6023 12498 6023 12419 5944"
  415.   s = s + " 12458 5827 12341 5788 12341 5748 12223 5788 12145 5748"
  416.   s = s + " 12105 5788 12027 5748 11909 5748 11870 5631 11752 5670"
  417.   s = s + " 11713 5670 11713 5748 11752 5748 11752 5748 11634 5827"
  418.   s = s + " 11595 5788 11595 5905 11517 5984 11477 6023 11438 6101"
  419.   s = s + " 11399 6101 11360 6101 11320 6023 11320 6062 11281 6062"
  420.   s = s + " 11281 6141 11242 6180 11163 6141 11085 6219 10967 6141"
  421.   s = s + " 10928 6219 10850 6180 10850 6219 10810 6258 10771 6298"
  422.   s = s + " 10810 6337 10693 6376 10732 6533 10536 6455 10496 6533"
  423.   s = s + " 10496 6572 10496 6612 10496 6729 10457 6690 10418 6769"
  424.   s = s + " 10850 6729 10850 6729 10810 6651 12184 6612 12341 6494"
  425.   s = s + " 12498 6337 12498 6337 12655 6141"
  426.   vsDraw1.Polygon = s
  427.   vsDraw1.Action = 2
  428. End Sub
  429. Sub DoLouisiana ()
  430.   Dim s$
  431.   ' Louisiana
  432.   s = s + " 10732 9555 10653 9555 10614 9555 10575 9555 10575 9515"
  433.   s = s + " 10496 9515 10536 9515 10496 9476 10496 9437 10496 9437"
  434.   s = s + " 10496 9398 10536 9437 10536 9398 10536 9437 10575 9358"
  435.   s = s + " 10614 9358 10575 9358 10653 9280 10653 9241 10575 9280"
  436.   s = s + " 10536 9280 10496 9319 10418 9280 10496 9241 10457 9280"
  437.   s = s + " 10457 9241 10339 9280 10222 9280 10300 9162 10457 9241"
  438.   s = s + " 10496 9201 10418 9005 10457 8927 9829 8927 9790 8809"
  439.   s = s + " 9869 8809 9829 8770 9869 8770 9869 8691 9908 8691"
  440.   s = s + " 9869 8691 9908 8691 9908 8652 9908 8652 9908 8652"
  441.   s = s + " 9908 8652 9908 8613 9908 8613 9986 8534 9947 8495"
  442.   s = s + " 9986 8456 9947 8456 9986 8456 10026 8377 9986 8377"
  443.   s = s + " 9986 8377 9947 8377 9947 8338 9986 8338 9947 8338"
  444.   s = s + " 9986 8299 9947 8299 9947 8260 9908 8220 9947 8181"
  445.   s = s + " 9947 8142 9908 8181 9908 8142 9044 8142 9044 8574"
  446.   s = s + " 9084 8652 9084 8691 9123 8731 9201 8927 9123 9123"
  447.   s = s + " 9123 9280 9123 9319 9084 9398 9044 9398 9084 9437"
  448.   s = s + " 9319 9398 9515 9515 9672 9476 9751 9515 9790 9476"
  449.   s = s + " 9672 9476 9633 9437 9751 9398 9751 9437 9829 9398"
  450.   s = s + " 9869 9515 9947 9555 9986 9594 9947 9555 9908 9555"
  451.   s = s + " 9947 9594 10065 9633 10104 9672 10182 9633 10182 9594"
  452.   s = s + " 10222 9594 10182 9555 10222 9555 10222 9555 10222 9555"
  453.   s = s + " 10261 9555 10300 9594 10300 9633 10379 9594 10339 9555"
  454.   s = s + " 10379 9555 10379 9515 10300 9476 10300 9437 10261 9398"
  455.   s = s + " 10300 9398 10300 9358 10339 9398 10300 9398 10339 9476"
  456.   s = s + " 10339 9437 10339 9476 10379 9515 10379 9437 10418 9476"
  457.   s = s + " 10418 9476 10379 9515 10418 9515 10457 9515 10457 9555"
  458.   s = s + " 10496 9555 10575 9633 10614 9594 10575 9712 10614 9594"
  459.   s = s + " 10693 9672 10653 9633 10693 9594 10732 9555"
  460.   vsDraw1.Polygon = s
  461.   vsDraw1.Action = 2
  462. End Sub
  463. Sub DoMaine ()
  464.   Dim s$
  465.   ' Maine
  466.   s = s + " 16343 2531 16343 2570 16304 2531 16383 2531 16304 2491"
  467.   s = s + " 16265 2491 16226 2491 16226 2452 16226 2413 16186 2374"
  468.   s = s + " 16186 2334 16069 2295 16069 2217 15951 1824 15794 1746"
  469.   s = s + " 15637 1863 15637 1863 15598 1824 15598 1746 15519 1746"
  470.   s = s + " 15401 2099 15401 2217 15362 2295 15401 2413 15323 2570"
  471.   s = s + " 15362 2609 15323 2609 15323 2687 15284 2648 15245 2687"
  472.   s = s + " 15401 3394 15558 3472 15558 3394 15598 3315 15598 3276"
  473.   s = s + " 15637 3276 15598 3237 15637 3158 15637 3119 15637 3158"
  474.   s = s + " 15676 3119 15715 3158 15676 3080 15715 3119 15715 3080"
  475.   s = s + " 15715 3119 15755 3119 15755 3119 15755 3080 15794 3119"
  476.   s = s + " 15794 3041 15833 3080 15872 3001 15872 3080 15912 2884"
  477.   s = s + " 15872 2844 15951 2805 15951 2884 16029 2884 15990 2805"
  478.   s = s + " 16029 2844 15990 2805 16029 2805 16029 2805 16069 2766"
  479.   s = s + " 16147 2805 16147 2805 16147 2766 16186 2805 16186 2766"
  480.   s = s + " 16186 2805 16186 2766 16186 2727 16226 2766 16226 2727"
  481.   s = s + " 16226 2766 16226 2727 16226 2687 16265 2687 16265 2648"
  482.   s = s + " 16304 2687 16383 2570 16343 2531"
  483.   vsDraw1.Polygon = s
  484.   vsDraw1.Action = 2
  485. End Sub
  486. Sub DoMaryland ()
  487.   Dim s$
  488.   ' Maryland
  489.   s = s + " 14617 5474 14656 5513 14656 5552 14577 5670 14499 5709"
  490.   s = s + " 14460 5709 14499 5631 14420 5631 14460 5631 14420 5591"
  491.   s = s + " 14460 5552 14420 5631 14381 5552 14381 5631 14303 5552"
  492.   s = s + " 14342 5631 14264 5513 14303 5552 14342 5513 14303 5474"
  493.   s = s + " 14303 5513 14264 5474 14381 5474 14381 5474 14420 5434"
  494.   s = s + " 14342 5474 14342 5434 14303 5434 14342 5434 14303 5434"
  495.   s = s + " 14264 5434 14264 5434 14264 5395 14303 5434 14342 5434"
  496.   s = s + " 14303 5434 14303 5395 14264 5356 14264 5395 14264 5356"
  497.   s = s + " 14224 5434 14224 5317 14303 5356 14342 5277 14303 5317"
  498.   s = s + " 14264 5277 14264 5356 14264 5277 14264 5160 14342 5160"
  499.   s = s + " 14303 5160 14342 5160 14342 5120 14303 5160 14303 5120"
  500.   s = s + " 14264 5120 14264 5160 14264 5199 14224 5160 14224 5238"
  501.   s = s + " 14224 5199 14224 5199 14224 5199 14224 5238 14185 5238"
  502.   s = s + " 14224 5277 14146 5238 14185 5277 14185 5317 14224 5317"
  503.   s = s + " 14224 5356 14224 5356 14224 5395 14185 5395 14224 5395"
  504.   s = s + " 14224 5434 14224 5552 14264 5591 14185 5513 14185 5552"
  505.   s = s + " 14264 5631 14303 5709 14264 5670 14264 5709 14224 5670"
  506.   s = s + " 14224 5631 14185 5670 14185 5631 14107 5591 14146 5670"
  507.   s = s + " 14067 5552 14028 5631 13989 5552 14067 5474 14067 5434"
  508.   s = s + " 14107 5434 14028 5395 14028 5434 13910 5356 13910 5317"
  509.   s = s + " 13871 5277 13832 5277 13793 5238 13793 5238 13753 5199"
  510.   s = s + " 13753 5160 13636 5160 13596 5199 13596 5238 13518 5238"
  511.   s = s + " 13479 5199 13439 5317 13400 5317 13322 5434 13282 5199"
  512.   s = s + " 14342 5042 14499 5513 14656 5474 14617 5474"
  513.   vsDraw1.Polygon = s
  514.   vsDraw1.Action = 2
  515. End Sub
  516. Sub DoMassachusetts ()
  517.   Dim s$
  518.   ' Massachusetts
  519.   s = s + " 15794 3825 15755 3825 15794 3825 15833 3904 15755 3982"
  520.   s = s + " 15676 3982 15676 3904 15637 3904 15637 3865 15637 3865"
  521.   s = s + " 15598 3786 15519 3786 15480 3747 15519 3747 15519 3708"
  522.   s = s + " 15558 3708 15519 3669 15637 3629 15598 3629 15558 3669"
  523.   s = s + " 15519 3629 15558 3629 15519 3590 15519 3551 15441 3590"
  524.   s = s + " 15401 3669 15088 3708 14852 3747 14852 4022 15323 3943"
  525.   s = s + " 15441 3943 15480 3982 15519 4022 15519 3982 15519 4022"
  526.   s = s + " 15558 4022 15558 4100 15558 4061 15598 4100 15598 4061"
  527.   s = s + " 15598 4022 15637 4022 15676 3982 15676 4061 15755 3982"
  528.   s = s + " 15872 3982 15872 3943 15872 3982 15794 3825"
  529.   vsDraw1.Polygon = s
  530.   vsDraw1.Action = 2
  531. End Sub
  532. Sub DoMichigan ()
  533.   Dim s$
  534.   ' Michigan
  535.   s = s + " 12262 4257 12223 4257 12223 4218 12184 4257 12184 4336"
  536.   s = s + " 12105 4414 12105 4493 12027 4571 11634 4650 11634 4610"
  537.   s = s + " 11046 4689 11124 4610 11203 4336 11203 4179 11085 3982"
  538.   s = s + " 11085 3904 11046 3786 11124 3669 11124 3551 11163 3512"
  539.   s = s + " 11163 3472 11242 3433 11320 3355 11320 3472 11320 3512"
  540.   s = s + " 11360 3394 11360 3512 11360 3394 11360 3315 11477 3237"
  541.   s = s + " 11399 3237 11399 3198 11438 3119 11399 3119 11517 3119"
  542.   s = s + " 11634 3119 11674 3198 11870 3237 11948 3355 11948 3355"
  543.   s = s + " 11909 3355 11948 3472 11948 3629 11909 3669 11909 3708"
  544.   s = s + " 11831 3747 11831 3904 11909 3904 11909 3825 11909 3786"
  545.   s = s + " 11948 3786 11948 3747 12066 3669 12145 3708 12184 3747"
  546.   s = s + " 12262 4100 12262 4257"
  547.   vsDraw1.Polygon = s
  548.   vsDraw1.Action = 2
  549. End Sub
  550. Sub DoMinnesota ()
  551.   Dim s$
  552.   ' Minnesota
  553.   s = s + " 9829 2531 9476 2844 9515 2884 9437 2884 9437 3119 9358 3198"
  554.   s = s + " 9319 3276 9319 3315 9358 3394 9358 3394 9319 3629 9358 3669"
  555.   s = s + " 9555 3747 9594 3825 9712 3904 9751 3982 9790 4100 8299 4100"
  556.   s = s + " 8299 4100 8299 3394 8181 3315 8260 3237 8260 3158 8260 3119"
  557.   s = s + " 8260 3041 8220 2923 8220 2805 8181 2805 8181 2531 8142 2334"
  558.   s = s + " 8142 2217 8181 2138 8142 2020 8691 2020 8691 1903 8731 1903"
  559.   s = s + " 8770 1942 8770 2138 9044 2177 9044 2217 9241 2177 9358 2217"
  560.   s = s + " 9319 2217 9358 2217 9398 2295 9437 2295 9437 2256 9476 2256"
  561.   s = s + " 9515 2295 9633 2334 9633 2374 9790 2295 9829 2334 9986 2334"
  562.   s = s + " 10065 2374 10182 2374 9829 2531"
  563.   vsDraw1.Polygon = s
  564.   vsDraw1.Action = 2
  565. End Sub
  566. Sub DoMississippi ()
  567.   Dim s$
  568.   ' Mississippi
  569.   s = s + " 10850 7396 10810 8534 10889 9123 10771 9123 10575 9162"
  570.   s = s + " 10575 9123 10536 9241 10496 9201 10418 9005 10457 8927"
  571.   s = s + " 9829 8927 9790 8809 9869 8809 9829 8770 9869 8770"
  572.   s = s + " 9869 8691 9908 8691 9869 8691 9908 8691 9908 8652"
  573.   s = s + " 9908 8652 9908 8652 9908 8613 9908 8613 9986 8534"
  574.   s = s + " 9947 8495 9986 8456 9947 8456 9986 8456 10026 8377"
  575.   s = s + " 9986 8377 9986 8377 9947 8377 9947 8338 9986 8338"
  576.   s = s + " 9947 8338 9986 8299 9947 8299 9947 8260 9947 8260"
  577.   s = s + " 9908 8220 9947 8181 9947 8142 9908 8181 9908 8142"
  578.   s = s + " 9947 8103 9908 8103 9947 8103 9947 8063 9908 8024"
  579.   s = s + " 9947 7985 9908 8024 9908 7985 9947 7946 9908 7985"
  580.   s = s + " 9908 7946 9908 7907 9908 7867 9947 7867 9908 7867"
  581.   s = s + " 9986 7828 9947 7789 9986 7750 9986 7710 10026 7710"
  582.   s = s + " 9986 7671 10026 7671 10026 7593 10065 7632 10104 7593"
  583.   s = s + " 10104 7514 10143 7514 10104 7475 10143 7475 10143 7396"
  584.   s = s + " 10143 7436 10182 7436 10222 7396 10182 7357 10810 7318"
  585.   s = s + " 10850 7357 10850 7396"
  586.   vsDraw1.Polygon = s
  587.   vsDraw1.Action = 2
  588. End Sub
  589. Sub DoMissouri ()
  590.   Dim s$
  591.   ' Missouri
  592.   s = s + " 10496 6612 10496 6572 10496 6533 10457 6572 10418 6572"
  593.   s = s + " 10379 6455 10418 6415 10379 6337 10261 6219"
  594.   s = s + " 10222 6258 10222 6219 10104 6101 10104 6062 10104 6062"
  595.   s = s + " 10182 5866 10065 5827 10026 5866 9947 5748 9790 5552"
  596.   s = s + " 9712 5395 9751 5277 9633 5199 8495 5199 8495 5238"
  597.   s = s + " 8495 5356 8574 5356 8574 5434 8613 5434 8691 5474"
  598.   s = s + " 8731 5474 8770 5552 8731 5552 8691 5631 8770 5709"
  599.   s = s + " 8770 5748 8809 5788 8809 6612 8809 6808 9986 6769"
  600.   s = s + " 10222 6769 10222 6847 10143 6965 10339 6965 10379 6925"
  601.   s = s + " 10339 6886 10418 6886 10379 6847 10418 6847 10379 6769"
  602.   s = s + " 10379 6729 10418 6729 10418 6769 10457 6690 10496 6729"
  603.   s = s + " 10496 6612"
  604.   vsDraw1.Polygon = s
  605.   vsDraw1.Action = 2
  606. End Sub
  607. Sub DoMontana ()
  608.   Dim s$
  609.   ' Montana
  610.   s = s + " 6219 3355 6219 3080 6337 1942 3237 1471 3158 1863"
  611.   s = s + " 3237 1942 3198 2020 3237 2060 3198 2060 3315 2177"
  612.   s = s + " 3394 2374 3512 2452 3433 2609 3433 2727 3355 2766"
  613.   s = s + " 3394 2805 3355 2805 3433 2844 3551 2805 3590 2844"
  614.   s = s + " 3590 3001 3629 3080 3590 3119 3708 3198 3708 3315"
  615.   s = s + " 3747 3355 3786 3315 3904 3355 3904 3315 4139 3355"
  616.   s = s + " 4139 3315 4179 3276 4257 3394 4257 3394 4296 3198"
  617.   s = s + " 6180 3433 6219 3355"
  618.   vsDraw1.Polygon = s
  619.   vsDraw1.Action = 2
  620. End Sub
  621. Sub DoNebraska ()
  622.   Dim s$
  623.   ' Nebraska
  624.   s = s + " 8613 5434 6612 5395 6651 5003 6062 4963 6101 4806"
  625.   s = s + " 6101 4728 6141 4179 7710 4257 7867 4375 7907 4336"
  626.   s = s + " 8063 4336 8299 4493 8299 4610 8417 4767 8417 4846"
  627.   s = s + " 8456 4885 8456 4924 8456 5003 8495 5003 8495 5120"
  628.   s = s + " 8456 5160 8495 5199 8495 5238 8495 5356 8574 5356"
  629.   s = s + " 8574 5434 8613 5434"
  630.   vsDraw1.Polygon = s
  631.   vsDraw1.Action = 2
  632. End Sub
  633. Sub DoNevada ()
  634.   Dim s$
  635.   ' Nevada
  636.   s = " 3198 4571 2923 6062 2844 6376 2805 6455"
  637.   s = s + " 2727 6376 2648 6376 2609 6729 2570 6808"
  638.   s = s + " 1942 5905 1314 4963 1589 3825 2452 4022"
  639.   s = s + " 3276 4179 3198 4571"
  640.   vsDraw1.Polygon = s
  641.   vsDraw1.Action = 2
  642. End Sub
  643. Sub DoNewHampshire ()
  644.   Dim s$
  645.   ' New Hampshire
  646.   s = s + " 15558 3472 15519 3551 15441 3590 15401 3669 15088 3708"
  647.   s = s + " 15048 3669 15088 3629 15048 3394 15088 3158 15088 3119"
  648.   s = s + " 15166 3001 15166 2962 15127 2923 15166 2805 15166 2805"
  649.   s = s + " 15127 2805 15127 2727 15245 2687 15401 3394 15558 3472"
  650.   vsDraw1.Polygon = s
  651.   vsDraw1.Action = 2
  652. End Sub
  653. Sub DoNewJersey ()
  654.   Dim s$
  655.   ' New Jersey
  656.   s = s + " 14813 4493 14774 4493 14774 4571 14774 4650 14813 4650"
  657.   s = s + " 14852 4924 14813 4846 14813 4963 14774 5003 14774 5042"
  658.   s = s + " 14774 5042 14774 5081 14774 5120 14774 5120 14734 5160"
  659.   s = s + " 14695 5277 14656 5277 14656 5199 14577 5199 14460 5120"
  660.   s = s + " 14460 5081 14460 5003 14656 4846 14499 4728 14460 4650"
  661.   s = s + " 14499 4571 14460 4532 14538 4336 14774 4453 14813 4493"
  662.   vsDraw1.Polygon = s
  663.   vsDraw1.Action = 2
  664. End Sub
  665. Sub DoNewMexico ()
  666.   Dim s$
  667.   ' New Mexico
  668.   s = s + " 6219 6690 6258 6533 4414 6337 4414 6533 4139 8495"
  669.   s = s + " 4414 8534 4414 8377 4963 8417 4924 8377 4963 8377"
  670.   s = s + " 6101 8456 6219 6690"
  671.   vsDraw1.Polygon = s
  672.   vsDraw1.Action = 2
  673. End Sub
  674. Sub DoNewYork ()
  675.   Dim s$
  676.   ' New York
  677.   s = s + " 14774 3472 14852 3747 14852 4022 14891 4296 14891 4336"
  678.   s = s + " 14852 4414 14891 4453 14774 4571 14774 4493 14813 4493"
  679.   s = s + " 14774 4375 14774 4336 14538 4336 14499 4336 14420 4218"
  680.   s = s + " 14342 4218 14303 4139 13086 4375 13086 4257 13282 4022"
  681.   s = s + " 13204 3943 13204 3865 13361 3786 13557 3747 13636 3786"
  682.   s = s + " 13793 3747 13950 3629 13950 3551 13950 3512 13989 3433"
  683.   s = s + " 13950 3433 13950 3394 13950 3472 13910 3394 14028 3276"
  684.   s = s + " 14146 3119 14224 3041 14656 2923 14656 3080 14734 3198"
  685.   s = s + " 14695 3237 14695 3315 14774 3394 14734 3433 14774 3433"
  686.   s = s + " 14774 3433 14774 3433 14774 3472"
  687.   vsDraw1.Polygon = s
  688.   vsDraw1.Action = 2
  689. End Sub
  690. Sub DoNorthCarolina ()
  691.   Dim s$
  692.   ' North Carolina
  693.   s = s + " 14656 6533 14617 6455 14617 6533 14577 6533 14577 6612"
  694.   s = s + " 14538 6572 14538 6533 14538 6494 14499 6494 14499 6494"
  695.   s = s + " 14538 6455 14499 6494 14499 6533 14460 6494 14342 6572"
  696.   s = s + " 14342 6376 14342 6494 14381 6494 14460 6455 14420 6415"
  697.   s = s + " 14499 6455 14460 6415 14499 6415 14499 6337 14577 6376"
  698.   s = s + " 14538 6337 14617 6415 14538 6298 14538 6337 14499 6298"
  699.   s = s + " 14499 6258 14499 6298 13636 6415 13596 6415 13557 6415"
  700.   s = s + " 12772 6533 12772 6612 12733 6612 12733 6690 12615 6729"
  701.   s = s + " 12537 6808 12498 6769 12458 6808 12458 6886 12262 6965"
  702.   s = s + " 12184 7004 12145 7122 12066 7161 12066 7200 12419 7200"
  703.   s = s + " 12655 7082 13086 7043 13086 7082 13086 7043 13165 7122"
  704.   s = s + " 13165 7161 13518 7122 13910 7436 13950 7396 14107 7396"
  705.   s = s + " 14067 7239 14107 7357 14146 7200 14224 7122 14224 7082"
  706.   s = s + " 14224 7082 14224 7043 14224 7004 14224 7082 14224 7122"
  707.   s = s + " 14303 7043 14303 7004 14303 7043 14460 7004 14420 6965"
  708.   s = s + " 14460 6965 14460 7004 14460 6925 14499 6965 14538 6925"
  709.   s = s + " 14538 6886 14499 6886 14538 6886 14499 6925 14499 6847"
  710.   s = s + " 14499 6925 14460 6886 14499 6925 14460 6925 14460 6925"
  711.   s = s + " 14342 6925 14264 6847 14381 6925 14460 6847 14381 6847"
  712.   s = s + " 14460 6808 14499 6769 14381 6808 14381 6769 14303 6729"
  713.   s = s + " 14303 6769 14264 6690 14420 6729 14420 6690 14381 6690"
  714.   s = s + " 14460 6651 14460 6690 14420 6690 14460 6690 14460 6729"
  715.   s = s + " 14499 6690 14499 6729 14538 6729 14617 6612 14656 6612"
  716.   s = s + " 14656 6533"
  717.   vsDraw1.Polygon = s
  718.   vsDraw1.Action = 2
  719. End Sub
  720. Sub DoNorthDakota ()
  721.   Dim s$
  722.   ' North Dakota
  723.   s = s + " 8260 3119 8260 3158 6219 3080 6337 1942 8142 2020"
  724.   s = s + " 8181 2138 8142 2217 8142 2334 8181 2531 8181 2805"
  725.   s = s + " 8220 2805 8220 2923 8260 3041 8260 3119"
  726.   vsDraw1.Polygon = s
  727.   vsDraw1.Action = 2
  728. End Sub
  729. Sub DoOhio ()
  730.   Dim s$
  731.   ' Ohio
  732.   s = s + " 12929 4846 12851 4414 12655 4532 12537 4610 12458 4610"
  733.   s = s + " 12341 4689 12262 4650 12184 4689 12223 4650 12223 4610"
  734.   s = s + " 12184 4650 12027 4571 11634 4650 11752 5670 11870 5631"
  735.   s = s + " 11909 5748 12027 5748 12105 5788 12145 5748 12223 5788"
  736.   s = s + " 12341 5748 12341 5788 12458 5827 12498 5827 12498 5748"
  737.   s = s + " 12537 5748 12498 5709 12576 5591 12615 5670 12655 5631"
  738.   s = s + " 12615 5552 12655 5474 12694 5474 12733 5434 12772 5434"
  739.   s = s + " 12772 5434 12890 5317 12929 5042 12890 4924 12929 4885 12929 4846"
  740.   vsDraw1.Polygon = s
  741.   vsDraw1.Action = 2
  742. End Sub
  743. Sub DoOklahoma ()
  744.   Dim s$
  745.   ' Oklahoma
  746.   s = s + " 8888 7239 8848 7907 8652 7789 8613 7828 8495 7789 8495 7828"
  747.   s = s + " 8338 7828 8260 7907 8181 7828 8181 7789 8142 7828 8063 7789"
  748.   s = s + " 8024 7867 7985 7789 7907 7828 7867 7789 7828 7789 7750 7789"
  749.   s = s + " 7789 7789 7710 7789 7710 7710 7632 7710 7632 7750 7553 7710"
  750.   s = s + " 7357 7671 7318 7553 7318 7593 7239 7593 7122 7514 7161 6769"
  751.   s = s + " 6219 6690 6258 6533 6533 6572 8809 6612 8809 6808 8888 7239"
  752.   vsDraw1.Polygon = s
  753.   vsDraw1.Action = 2
  754. End Sub
  755. Sub DoOregon ()
  756.   Dim s$
  757.   ' Oregon
  758.   s = " 2844 2687 2766 2531 2217 2413 1824 2452 1746 2413"
  759.   s = s + " 1589 2413 1589 2374 1432 2334 1314 2374 1196 2256"
  760.   s = s + " 1196 2138 1118 2060 1039 2020 1039 1981 961 2020"
  761.   s = s + " 922 1981 922 2060 882 2099 882 2217 647 2805 412"
  762.   s = s + " 3158 451 3276 412 3472 412 3512 1589 3825 2452 4022"
  763.   s = s + " 2570 3355 2648 3198 2531 3158 2531 3119 2648 3001"
  764.   s = s + " 2727 2962 2727 2884 2844 2727 2844 2687"
  765.   vsDraw1.Polygon = s
  766.   vsDraw1.Action = 2
  767. End Sub
  768. Sub DoPennsylvania ()
  769.   Dim s$
  770.   ' Pennsylvania
  771.   s = s + " 14538 4336 14499 4336 14420 4218 14342 4218 14303 4139 13086 4375"
  772.   s = s + " 13086 4257 12851 4414 12929 4846 12929 4885 12969 5277 13282 5199"
  773.   s = s + " 14342 5042 14420 5003 14460 5003 14656 4846 14499 4728 14460 4650"
  774.   s = s + " 14499 4571 14460 4532 14538 4336"
  775.   vsDraw1.Polygon = s
  776.   vsDraw1.Action = 2
  777. End Sub
  778. Sub DoRhodeIsland ()
  779.   Dim s$
  780.   ' Rhode Island
  781.   s = s + " 15480 3982 15441 3943 15323 3943 15362 4061 15362 4179 15362 4218"
  782.   s = s + " 15441 4139 15480 4179 15480 4061 15441 4022 15480 4022 15441 3982"
  783.   s = s + " 15480 4022 15480 3982"
  784.   vsDraw1.Polygon = s
  785.   vsDraw1.Action = 2
  786. End Sub
  787. Sub DoSouthCarolina ()
  788.   Dim s$
  789.   ' South Carolina
  790.   s = s + " 13910 7436 13518 7122 13165 7161 13165 7122 13086 7043 13086 7082"
  791.   s = s + " 13086 7043 12655 7082 12419 7200 12380 7318 12498 7396 12655 7553"
  792.   s = s + " 12851 7750 12851 7789 12929 7828 13047 7867 13086 8024 13165 8103"
  793.   s = s + " 13165 8181 13204 8220 13282 8220 13322 8181 13282 8142 13322 8142"
  794.   s = s + " 13243 8103 13282 8103 13282 8063 13282 8024 13400 8063 13439 8024"
  795.   s = s + " 13400 7985 13479 7946 13439 7985 13479 7985 13479 8024 13518 7985"
  796.   s = s + " 13479 7985 13557 7946 13518 7867 13596 7907 13636 7789 13675 7789"
  797.   s = s + " 13675 7789 13714 7750 13753 7750 13753 7710 13714 7671 13714 7632"
  798.   s = s + " 13753 7593 13714 7671 13753 7671 13832 7514 13910 7436"
  799.   vsDraw1.Polygon = s
  800.   vsDraw1.Action = 2
  801. End Sub
  802. Sub DoSouthDakota ()
  803.     Dim s$
  804.     ' South Dakota
  805.     s = s + " 8299 4257 8220 4375 8299 4493 8063 4336 7907 4336"
  806.     s = s + " 7867 4375 7710 4257 6141 4179 6180 3433 6219 3355"
  807.     s = s + " 6219 3080 8260 3158 8260 3237 8181 3315 8299 3394"
  808.     s = s + " 8299 4100 8260 4139 8260 4218 8299 4257"
  809.     vsDraw1.Polygon = s
  810.     vsDraw1.Action = 2
  811. End Sub
  812. Sub DoTennessee ()
  813.   Dim s$
  814.   ' Tennessee
  815.   s = s + " 12772 6533 12772 6612 12733 6612 12733 6690 12615 6729"
  816.   s = s + " 12537 6808 12498 6769 12458 6808 12458 6886 12262 6965"
  817.   s = s + " 12184 7004 12145 7122 12066 7161 12066 7161 12066 7200"
  818.   s = s + " 11634 7239 10810 7318 10182 7357 10222 7279 10222 7239"
  819.   s = s + " 10222 7200 10222 7200 10222 7200 10261 7200 10222 7161"
  820.   s = s + " 10300 7161 10261 7122 10300 7082 10261 7082 10339 7043"
  821.   s = s + " 10339 7004 10379 7004 10339 6965 10379 6925 10339 6886"
  822.   s = s + " 10418 6886 10379 6847 10418 6847 10379 6769 10418 6769"
  823.   s = s + " 10850 6729 10810 6651 12184 6612 12772 6494 12772 6533"
  824.   vsDraw1.Polygon = s
  825.   vsDraw1.Action = 2
  826. End Sub
  827. Sub DoTexas ()
  828.   Dim s$
  829.   ' Texas
  830.   s = s + " 9201 8927 9123 8731 9084 8691 9084 8652 9044 8574"
  831.   s = s + " 9044 8142 9044 7946 8888 7946 8848 7907 8652 7789"
  832.   s = s + " 8613 7828 8495 7789 8495 7828 8338 7828 8260 7907"
  833.   s = s + " 8181 7828 8181 7789 8142 7828 8063 7789 8024 7867"
  834.   s = s + " 7985 7789 7907 7828 7867 7789 7828 7789 7750 7789"
  835.   s = s + " 7789 7789 7710 7789 7710 7710 7632 7710 7632 7750"
  836.   s = s + " 7553 7710 7357 7671 7318 7553 7318 7593 7239 7593"
  837.   s = s + " 7122 7514 7161 6769 6219 6690 6101 8456 4963 8377"
  838.   s = s + " 4924 8377 4963 8417 5317 8848 5434 8966 5434 8966"
  839.   s = s + " 5513 9123 5513 9241 5552 9358 5905 9594 5984 9594"
  840.   s = s + " 6023 9555 6062 9555 6062 9515 6180 9319 6219 9319"
  841.   s = s + " 6258 9280 6337 9319 6572 9358 6612 9437 6612 9398"
  842.   s = s + " 6612 9476 6690 9476 6769 9633 6925 9947 7043 10065"
  843.   s = s + " 7043 10143 7161 10222 7161 10418 7239 10496 7318 10693"
  844.   s = s + " 7396 10732 7593 10850 7789 10850 7867 10928 7946 10889"
  845.   s = s + " 7946 10850 7907 10889 7946 10850 7907 10810 7867 10575"
  846.   s = s + " 7828 10536 7867 10536 7828 10496 7867 10457 7907 10379"
  847.   s = s + " 7789 10379 7750 10300 7828 10379 7828 10339 7867 10339"
  848.   s = s + " 7828 10300 7867 10261 7867 10339 7828 10379 7907 10379"
  849.   s = s + " 7946 10182 7907 10222 7907 10143 7867 10143 7946 10143"
  850.   s = s + " 8024 10065 7985 10104 7946 10065 7946 10026 8024"
  851.   s = s + " 10026 8024 10065 8063 9986 8063 10065 8103 10026 8103"
  852.   s = s + " 9908 8142 9986 8220 9908 8181 9908 8181 9908 8181 9869"
  853.   s = s + " 8142 9829 8181 9869 8181 9829 8181 9869 8299 9829 8299"
  854.   s = s + " 9869 8377 9829 8220 9947 8495 9829 8495 9829 8377 9829"
  855.   s = s + " 8417 9829 8495 9829 8574 9751 8652 9672 8613 9712"
  856.   s = s + " 8652 9633 8691 9633 8770 9594 8731 9555 8691 9515"
  857.   s = s + " 8731 9476 8770 9437 8770 9476 8770 9515 8888 9515"
  858.   s = s + " 8770 9555 9044 9476 9084 9476 9044 9398 9123 9319"
  859.   s = s + " 9123 9280 9123 9123 9201 8927"
  860.   vsDraw1.Polygon = s
  861.   vsDraw1.Action = 2
  862. End Sub
  863. Sub DoUtah ()
  864.   Dim s$
  865.   ' Utah
  866.   s = " 4453 4866 4610 4806 4061 4728 4139 4336 3276 4179"
  867.   s = s + " 3198 4571 2923 6062 4414 6337 4453 5984 4453 5866"
  868.   vsDraw1.Polygon = s
  869.   vsDraw1.Action = 2
  870. End Sub
  871. Sub DoVermont ()
  872.   Dim s$
  873.   ' Vermont
  874.   s = s + " 15166 2805 15127 2923 15166 2962 15166 3001 15166 3001"
  875.   s = s + " 15088 3119 15088 3158 15048 3394 15088 3629 15048 3669"
  876.   s = s + " 15088 3708 14852 3747 14774 3472 14774 3433 14774 3433"
  877.   s = s + " 14734 3433 14774 3394 14695 3276 14734 3119 14695 3119"
  878.   s = s + " 14734 3080 14695 3080 14734 3001 14695 2923 14695 2884"
  879.   s = s + " 15127 2805 15166 2805 15166 2805"
  880.   vsDraw1.Polygon = s
  881.   vsDraw1.Action = 2
  882. End Sub
  883. Sub DoVirginia ()
  884.   Dim s$
  885.   ' Virginia
  886.   s = " 14577 5670 14499 5709 14538 5748 14499 5748 14538 5748"
  887.   s = s + " 14499 5748 14538 5748 14499 5748 14538 5748 14499 5748"
  888.   s = s + " 14499 5748 14499 5788 14499 5788 14499 5788 14499 5788"
  889.   s = s + " 14499 5827 14499 5827 14499 5827 14499 5827 14499 5866"
  890.   s = s + " 14499 5827 14499 5866 14499 5905 14499 5866 14499 5905"
  891.   s = s + " 14499 5944 14499 5905 14499 5944 14499 5984 14499 5984"
  892.   s = s + " 14499 6023 14499 5984 14499 6023 14499 6023 14499 5944"
  893.   s = s + " 14499 5944 14499 5905 14499 5866 14499 5905 14538 5905"
  894.   s = s + " 14538 5866 14499 5866 14538 5866 14538 5905 14538 5827"
  895.   s = s + " 14538 5866 14538 5827 14538 5788 14538 5827 14538 5788"
  896.   s = s + " 14577 5748 14538 5748 14577 5748 14577 5748 14577 5709"
  897.   s = s + " 14617 5709 14577 5709 14577 5670"
  898.   vsDraw1.Polygon = s
  899.   vsDraw1.Action = 2
  900.   s = s + " 14538 6258 14499 6101 14499 6141 14460 6141 14499 6141"
  901.   s = s + " 14460 6141 14460 6101 14420 6101 14420 6141 14420 6180"
  902.   s = s + " 14460 6141 14460 6180 14420 6180 14460 6219 14420 6180"
  903.   s = s + " 14381 6180 14381 6141 14342 6180 14342 6141 14342 6219"
  904.   s = s + " 14342 6180 14342 6141 14264 6101 14264 6023 14264 6062"
  905.   s = s + " 14224 6023 14185 6023 14146 6023 14107 6023 14067 6023"
  906.   s = s + " 14146 6023 14185 6023 14224 6023 14224 6023 14224 6023"
  907.   s = s + " 14224 6023 14264 6023 14303 6023 14264 6062 14303 6062"
  908.   s = s + " 14381 6141 14381 6101 14381 6062 14381 6101 14420 6101"
  909.   s = s + " 14420 6062 14381 6062 14381 6023 14342 6023 14342 6062"
  910.   s = s + " 14342 6023 14264 6023 14224 5944 14224 5984 14224 5944"
  911.   s = s + " 14224 5984 14303 6023 14342 6023 14303 6023 14303 5984"
  912.   s = s + " 14342 5984 14303 5984 14342 5984 14303 5984 14303 5944"
  913.   s = s + " 14342 5984 14342 5944 14381 5944 14381 5984 14381 5944"
  914.   s = s + " 14381 5944 14342 5944 14342 5905 14342 5944 14303 5905"
  915.   s = s + " 14342 5905 14303 5905 14303 5866 14264 5905 14264 5866"
  916.   s = s + " 14224 5866 14264 5866 14224 5827 14224 5827 14185 5788"
  917.   s = s + " 14146 5748 14146 5748 14185 5748 14224 5788 14224 5788"
  918.   s = s + " 14224 5827 14224 5788 14264 5827 14303 5866 14303 5827"
  919.   s = s + " 14264 5827 14303 5827 14264 5827 14303 5827 14303 5866"
  920.   s = s + " 14342 5866 14342 5827 14342 5788 14342 5827 14342 5788"
  921.   s = s + " 14303 5748 14342 5788 14342 5748 14342 5788 14342 5748"
  922.   s = s + " 14303 5748 14303 5748 14303 5748 14264 5748 14264 5748"
  923.   s = s + " 14264 5748 14224 5748 14264 5748 14224 5748 14264 5748"
  924.   s = s + " 14224 5748 14264 5748 14224 5709 14224 5709 14224 5748"
  925.   s = s + " 14185 5709 14107 5709 14107 5670 14107 5631 14067 5631"
  926.   s = s + " 14028 5670 13989 5670 13989 5631 13989 5591 13989 5552"
  927.   s = s + " 13989 5591 13989 5552 13989 5513 14028 5513 14028 5474"
  928.   s = s + " 14067 5474 14067 5434 13989 5434 13989 5395 13950 5395"
  929.   s = s + " 13950 5395 13910 5356 13910 5317 13871 5277 13832 5317"
  930.   s = s + " 13832 5317 13793 5395 13636 5277 13636 5317 13636 5317"
  931.   s = s + " 13636 5395 13596 5434 13596 5474 13596 5434 13557 5513"
  932.   s = s + " 13518 5552 13479 5513 13439 5631 13400 5709 13361 5709"
  933.   s = s + " 13361 5670 13322 5670 13282 5748 13282 5788 13243 5827"
  934.   s = s + " 13243 5866 13243 5905 13165 5984 13126 6023 13165 6023"
  935.   s = s + " 13165 6062 13165 6101 13086 6141 13086 6101 13086 6141"
  936.   s = s + " 13047 6180 13008 6141 13008 6180 12969 6219 12890 6258"
  937.   s = s + " 12851 6219 12772 6298 12772 6298 12694 6219 12655 6180"
  938.   s = s + " 12694 6180 12655 6141 12537 6298 12458 6337 12458 6376"
  939.   s = s + " 12419 6415 12419 6455 12341 6455 12341 6494 12223 6572"
  940.   s = s + " 12184 6612 12772 6494 12772 6533 13322 6455 14224 6337"
  941.   s = s + " 14499 6298 14499 6258 14499 6258 14499 6219 14499 6258"
  942.   s = s + " 14499 6180 14538 6258"
  943.   vsDraw1.Polygon = s
  944.   vsDraw1.Action = 2
  945. End Sub
  946. Sub DoWashington ()
  947.   Dim s$
  948.   ' Washington
  949.   s = " 2766 2531 2727 2531 2766 2491 2727 2413 3001 1432 1510"
  950.   s = s + " 1039 1510 1079 1510 1157 1550 1196 1589 1157 1589"
  951.   s = s + " 1236 1550 1236 1550 1314 1471 1275 1550 1353 1550"
  952.   s = s + " 1353 1510 1353 1510 1393 1550 1432 1510 1393 1550"
  953.   s = s + " 1353 1550 1471 1471 1589 1510 1628 1471 1628 1471"
  954.   s = s + " 1706 1432 1706 1353 1746 1314 1706 1314 1785 1314"
  955.   s = s + " 1706 1275 1746 1314 1706 1275 1746 1314 1628 1314"
  956.   s = s + " 1746 1393 1667 1353 1706 1393 1706 1353 1706 1393"
  957.   s = s + " 1706 1432 1628 1432 1628 1393 1628 1432 1589 1432"
  958.   s = s + " 1550 1471 1550 1432 1471 1471 1510 1275 1628 1314"
  959.   s = s + " 1628 1275 1628 1353 1550 1353 1510 1393 1510 1432"
  960.   s = s + " 1471 1432 1393 1432 1393 1393 1393 1393 1432 1393"
  961.   s = s + " 1393 1353 1353 1353 1353 1314 1353 1118 1314 961"
  962.   s = s + " 1157 961 1196 922 1236 922 1353 961 1393 961 1706"
  963.   s = s + " 1000 1667 1039 1706 1000 1746 961 1706 961 1785"
  964.   s = s + " 1039 1824 1000 1863 1000 1903 961 1942 961 1824"
  965.   s = s + " 922 1942 922 1981 1039 1981 1039 2020 1118 2060"
  966.   s = s + " 1196 2138 1196 2256 1314 2374 1432 2334 1589 2374"
  967.   s = s + " 1589 2413 1746 2413 1824 2452 2217 2413 2766 2531"
  968.   vsDraw1.Polygon = s
  969.   vsDraw1.Action = 2
  970. End Sub
  971. Sub DoWestVirginia ()
  972.   Dim s$
  973.   ' West Virginia
  974.   s = s + " 13832 5277 13793 5395 13636 5277 13636 5356 13518 5552"
  975.   s = s + " 13479 5552 13400 5709 13400 5748 13322 5670 13282 5748"
  976.   s = s + " 13165 6023 13165 6023 13086 6141 13008 6141 13008 6219"
  977.   s = s + " 12890 6258 12851 6219 12851 6219 12772 6298 12733 6258"
  978.   s = s + " 12655 6141 12615 6141 12498 6023 12498 6023 12419 5944"
  979.   s = s + " 12458 5827 12498 5827 12498 5748 12537 5748 12498 5709"
  980.   s = s + " 12576 5591 12615 5670 12655 5631 12615 5552 12655 5474"
  981.   s = s + " 12694 5474 12733 5434 12772 5434 12772 5434 12890 5317"
  982.   s = s + " 12929 5042 12890 4924 12929 4885 12969 5277 13282 5199"
  983.   s = s + " 13322 5434 13400 5317 13439 5317 13479 5199 13518 5238"
  984.   s = s + " 13596 5238 13596 5199 13636 5160 13753 5160 13753 5199"
  985.   s = s + " 13793 5238 13832 5277"
  986.   vsDraw1.Polygon = s
  987.   vsDraw1.Action = 2
  988. End Sub
  989. Sub DoWisconsin ()
  990.   Dim s$
  991.   ' Winsconsin
  992.   s = s + " 10771 3669 10771 3747 10771 3865 10771 3982 10732 4139"
  993.   s = s + " 10771 4296 10771 4414 9947 4453 9908 4414 9829 4375"
  994.   s = s + " 9790 4257 9829 4179 9790 4139 9790 4100 9751 3982"
  995.   s = s + " 9712 3904 9594 3825 9555 3747 9555 3747 9358 3669"
  996.   s = s + " 9319 3629 9358 3394 9358 3394 9319 3315 9319 3276"
  997.   s = s + " 9358 3198 9437 3119 9437 2884 9515 2884 9633 2844"
  998.   s = s + " 9829 2805 9869 2805 9790 2923 9869 2884 9869 2844"
  999.   s = s + " 9947 2923 9986 2923 10026 3001 10575 3119 10575 3158"
  1000.   s = s + " 10693 3198 10653 3355 10732 3355 10732 3394 10771 3394"
  1001.   s = s + " 10771 3472 10693 3472 10653 3629 10693 3669 10771 3512"
  1002.   s = s + " 10810 3551 10771 3669"
  1003.   vsDraw1.Polygon = s
  1004.   vsDraw1.Action = 2
  1005. End Sub
  1006. Sub DoWyoming ()
  1007.   Dim s$
  1008.   ' Wyoming
  1009.   s = s + " 6101 4728 6141 4179 6180 3433 4296 3198 4257 3394"
  1010.   s = s + " 4179 3825 4179 3943 4139 4336 4061 4728 4610 4806"
  1011.   s = s + " 6062 4963 6101 4806 6101 4728"
  1012.   vsDraw1.Polygon = s
  1013.   vsDraw1.Action = 2
  1014. End Sub
  1015. Sub Form_Load ()
  1016.     'list
  1017.     cmbStates.AddItem "Alabama"
  1018.     cmbStates.AddItem "Arizona"
  1019.     cmbStates.AddItem "Arkansas"
  1020.     cmbStates.AddItem "California"
  1021.     cmbStates.AddItem "Colorado"
  1022.     cmbStates.AddItem "Connecticut"
  1023.     cmbStates.AddItem "Delaware"
  1024.     cmbStates.AddItem "Florida"
  1025.     cmbStates.AddItem "Georgia"
  1026.     cmbStates.AddItem "Idaho"
  1027.     cmbStates.AddItem "Illinois"
  1028.     cmbStates.AddItem "Indiana"
  1029.     cmbStates.AddItem "Iowa"
  1030.     cmbStates.AddItem "Kansas"
  1031.     cmbStates.AddItem "Kentucky"
  1032.     cmbStates.AddItem "Louisiana"
  1033.     cmbStates.AddItem "Maine"
  1034.     cmbStates.AddItem "Maryland"
  1035.     cmbStates.AddItem "Massachusetts"
  1036.     cmbStates.AddItem "Michigan"
  1037.     cmbStates.AddItem "Minnesota"
  1038.     cmbStates.AddItem "Mississippi"
  1039.     cmbStates.AddItem "Missouri"
  1040.     cmbStates.AddItem "Montana"
  1041.     cmbStates.AddItem "Nebraska"
  1042.     cmbStates.AddItem "Nevada"
  1043.     cmbStates.AddItem "New Hampshire"
  1044.     cmbStates.AddItem "New Jersey"
  1045.     cmbStates.AddItem "New Mexico"
  1046.     cmbStates.AddItem "New York"
  1047.     cmbStates.AddItem "North Carolina"
  1048.     cmbStates.AddItem "North Dakota"
  1049.     cmbStates.AddItem "Ohio"
  1050.     cmbStates.AddItem "Oklahoma"
  1051.     cmbStates.AddItem "Oregon"
  1052.     cmbStates.AddItem "Pennsylvania"
  1053.     cmbStates.AddItem "Rhode Island"
  1054.     cmbStates.AddItem "South Carolina"
  1055.     cmbStates.AddItem "South Dakota"
  1056.     cmbStates.AddItem "Tennessee"
  1057.     cmbStates.AddItem "Texas"
  1058.     cmbStates.AddItem "Virginia"
  1059.     cmbStates.AddItem "Vermont"
  1060.     cmbStates.AddItem " XXXX"
  1061.     cmbStates.AddItem "Washington"
  1062.     cmbStates.AddItem "West Virginia"
  1063.     cmbStates.AddItem "Wisconsin"
  1064.     cmbStates.AddItem "Wyoming"
  1065.     cmbStates.ListIndex = 0
  1066.     'AllStates RGB(255, 255, 255)
  1067.     'MsgBox "On the vsDraw Control, click with left mouse and draw a polygon"
  1068. End Sub
  1069. Sub Form_Resize ()
  1070.     Dim h, w
  1071.     h = ScaleHeight - vsDraw1.Top
  1072.     w = ScaleWidth '/ 2
  1073.     vsDraw1.Height = h
  1074.     vsDraw1.Width = w
  1075.     Picture1.Height = h
  1076.     Picture1.Left = w
  1077.     Picture1.Width = w
  1078. End Sub
  1079. Function PolyCompress (s$, threshold%) As Integer
  1080.   Dim bg%, ed%
  1081.   Dim x%, y%, lastx%, lasty%, haslast%
  1082.   Dim dx%, dy%
  1083.   Dim ns$
  1084.   Dim npts%
  1085.   ' parse string
  1086.   s = Trim(s)
  1087.   bg = 1
  1088.   ed = InStr(bg, s, " ")
  1089.   While bg <= Len(s) And ed > bg
  1090.     ' get a point
  1091.     x = Val(Mid(s, bg, ed - bg))
  1092.     bg = ed + 1
  1093.     ed = InStr(bg + 1, s, " ")
  1094.     If ed = 0 Then ed = Len(s) + 1
  1095.     y = Val(Mid(s, bg, ed - bg))
  1096.     bg = ed + 1
  1097.     ed = InStr(bg, s, " ")
  1098.     ' discard it if too close to last point
  1099.     dx = Abs(x - lastx)
  1100.     dy = Abs(y - lasty)
  1101.     If ed > 0 And haslast And dx < threshold And dy < threshold Then
  1102.       
  1103.     ' add it to new string
  1104.     Else
  1105.       npts = npts + 1
  1106.       ns = ns + " " + Format(x) + " " + Format(y)
  1107.       lastx = x
  1108.       lasty = y
  1109.       haslast = True
  1110.     End If
  1111.   Wend
  1112.   ' return new string and npoints
  1113.   s = Trim(ns)
  1114.   PolyCompress = npts
  1115. End Function
  1116. Sub vsDraw1_MouseDown (Button As Integer, Shift As Integer, x As Single, y As Single)
  1117.     'Picture1.Visible = False
  1118.     's = Format(Int(x)) + " " + Format(Int(y))
  1119.     'np = 1
  1120.     'dwg = True
  1121. End Sub
  1122. Sub vsDraw1_MouseMove (Button As Integer, Shift As Integer, x As Single, y As Single)
  1123. '    If dwg Then
  1124. '        s = s + " " + Format(Int(x)) + " " + Format(Int(y))
  1125. '       np = np + 1
  1126.  '       caption = "Poly:" + Str(np) + " Points"
  1127.  '       vsDraw1.Action = 1
  1128.  '       vsDraw1.PolyLine = s
  1129.  '       vsDraw1.Action = 2
  1130.  '   End If
  1131. End Sub
  1132. Sub vsDraw1_MouseUp (Button As Integer, Shift As Integer, x As Single, y As Single)
  1133.     ' stop drawing
  1134. '    If Not dwg Then Exit Sub
  1135. '    dwg = False
  1136.     ' draw polygon
  1137. '    vsDraw1.Action = 1
  1138. '    vsDraw1.Polygon = s
  1139. '    vsDraw1.Action = 2
  1140.     ' save original picture to compare
  1141. '    DoEvents
  1142. '    Picture1 = vsDraw1.Picture
  1143. End Sub
  1144.